home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LucaCalc v1.0.cpt / LucaCalc / card_2884.txt < prev    next >
Encoding:
Text File  |  1991-12-05  |  17.9 KB  |  902 lines
  1. -- card: 2884 from stack: in
  2. -- bmap block id: 3845
  3. -- flags: 0000
  4. -- background id: 2560
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global cs
  9.   put "n" into cs
  10. end opencard
  11.  
  12.  
  13. -- part 1 (field)
  14. -- low flags: 04
  15. -- high flags: 0000
  16. -- rect: left=13 top=8 right=28 bottom=178
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 65535
  20. -- font id: 2302
  21. -- text size: 18
  22. -- style flags: 0
  23. -- line height: 24
  24. -- part name: Screen
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: A003
  30. -- rect: left=7 top=202 right=225 bottom=45
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: 1
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   global nownum
  42.   put "1" into nownum
  43.   number
  44. end mouseUp
  45.  
  46.  
  47. -- part 3 (field)
  48. -- low flags: 84
  49. -- high flags: 0001
  50. -- rect: left=1 top=56 right=71 bottom=81
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 20
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: operations
  59.  
  60.  
  61. -- part 6 (button)
  62. -- low flags: 00
  63. -- high flags: A003
  64. -- rect: left=50 top=202 right=225 bottom=88
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: 2
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   global nownum
  76.   put "2" into nownum
  77.   number
  78. end mouseUp
  79.  
  80.  
  81. -- part 7 (button)
  82. -- low flags: 00
  83. -- high flags: A003
  84. -- rect: left=94 top=202 right=225 bottom=132
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: 3
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   global nownum
  96.   put "3" into nownum
  97.   number
  98. end mouseUp
  99.  
  100.  
  101. -- part 8 (button)
  102. -- low flags: 00
  103. -- high flags: A003
  104. -- rect: left=7 top=172 right=195 bottom=45
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: 4
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   global nownum
  116.   put "4" into nownum
  117.   number
  118. end mouseUp
  119.  
  120.  
  121. -- part 9 (button)
  122. -- low flags: 00
  123. -- high flags: A003
  124. -- rect: left=50 top=172 right=195 bottom=88
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: 5
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   global nownum
  136.   put "5" into nownum
  137.   number
  138. end mouseUp
  139.  
  140.  
  141. -- part 10 (button)
  142. -- low flags: 00
  143. -- high flags: A003
  144. -- rect: left=94 top=172 right=195 bottom=132
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: 6
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   global nownum
  156.   put "6" into nownum
  157.   number
  158. end mouseUp
  159.  
  160.  
  161. -- part 11 (button)
  162. -- low flags: 00
  163. -- high flags: A003
  164. -- rect: left=94 top=142 right=165 bottom=132
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: 9
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   global nownum
  176.   put "9" into nownum
  177.   number
  178. end mouseUp
  179.  
  180.  
  181. -- part 12 (button)
  182. -- low flags: 00
  183. -- high flags: A003
  184. -- rect: left=50 top=142 right=165 bottom=88
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: 8
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   global nownum
  196.   put "8" into nownum
  197.   number
  198. end mouseUp
  199.  
  200.  
  201. -- part 13 (button)
  202. -- low flags: 00
  203. -- high flags: A003
  204. -- rect: left=7 top=142 right=165 bottom=45
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: 7
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   global nownum
  216.   put "7" into nownum
  217.   number
  218. end mouseUp
  219.  
  220.  
  221. -- part 14 (button)
  222. -- low flags: 00
  223. -- high flags: A003
  224. -- rect: left=7 top=229 right=252 bottom=45
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 1
  228. -- font id: 0
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: 0
  233. ----- HyperTalk script -----
  234. on mouseUp
  235.   global cs
  236.   if cs = "y" then
  237.     if card field "screen" ‚↠empty then
  238.       put empty into card field "Screen"
  239.       put 0 after card field "Screen"
  240.       put "n"into cs
  241.       put 0 after card field "operations"
  242.     end if
  243.   end if
  244.   if cs = "n" then
  245.     if card field "screen" ‚↠empty then
  246.       put 0 after card field "Screen"
  247.       put 0 after card field "operations"
  248.     end if
  249.   end if
  250. end mouseUp
  251.  
  252.  
  253. -- part 15 (button)
  254. -- low flags: 00
  255. -- high flags: A003
  256. -- rect: left=50 top=229 right=252 bottom=88
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: .
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   global cs
  268.   if cs = "y" then
  269.     if card field "screen" ‚↠empty then
  270.       if card field "screen" contains "." then
  271.       else
  272.         put empty into card field "Screen"
  273.         put . after card field "Screen"
  274.         put "n"into cs
  275.         put . after card field "operations"
  276.       end if
  277.     end if
  278.   end if
  279.   if cs = "n" then
  280.     if card field "screen" ‚↠empty then
  281.       if card field "screen" contains "." then
  282.       else
  283.         put . after card field "Screen"
  284.         put . after card field "operations"
  285.       end if
  286.     end if
  287.   end if
  288. end mouseUp
  289.  
  290.  
  291. -- part 17 (button)
  292. -- low flags: 00
  293. -- high flags: A003
  294. -- rect: left=163 top=229 right=252 bottom=188
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 1
  298. -- font id: 0
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: AC
  303. ----- HyperTalk script -----
  304. on mouseUp
  305.   Global cs
  306.   put empty into card field "screen"
  307.   put empty into card field "operations"
  308.   put "n" into cs
  309. end mouseUp
  310.  
  311.  
  312. -- part 18 (button)
  313. -- low flags: 00
  314. -- high flags: A003
  315. -- rect: left=94 top=229 right=252 bottom=132
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 1
  319. -- font id: 0
  320. -- text size: 12
  321. -- style flags: 0
  322. -- line height: 16
  323. -- part name: π
  324. ----- HyperTalk script -----
  325. on mouseUp
  326.   global cs
  327.   put pi into card field "screen"
  328.   put pi after card field "operations"
  329.   put "y" into cs
  330. end mouseUp
  331.  
  332.  
  333. -- part 19 (button)
  334. -- low flags: 00
  335. -- high flags: A003
  336. -- rect: left=137 top=229 right=252 bottom=162
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 1
  340. -- font id: 0
  341. -- text size: 12
  342. -- style flags: 0
  343. -- line height: 16
  344. -- part name: =
  345. ----- HyperTalk script -----
  346. on mouseUp
  347.   global cs
  348.   put the value of card field "operations" into card field "screen"
  349.   put the value of card field "operations" into card field "operations"
  350.   put "y" into cs
  351. end mouseUp
  352.  
  353.  
  354. -- part 20 (button)
  355. -- low flags: 00
  356. -- high flags: A003
  357. -- rect: left=137 top=202 right=225 bottom=162
  358. -- title width / last selected line: 0
  359. -- icon id / first selected line: 0 / 0
  360. -- text alignment: 1
  361. -- font id: 0
  362. -- text size: 12
  363. -- style flags: 0
  364. -- line height: 16
  365. -- part name: +
  366. ----- HyperTalk script -----
  367. on mouseUp
  368.   global nowop
  369.   put "+" into nowop
  370.   operation
  371. end mouseUp
  372.  
  373.  
  374. -- part 21 (button)
  375. -- low flags: 00
  376. -- high flags: A003
  377. -- rect: left=163 top=202 right=225 bottom=188
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 0 / 0
  380. -- text alignment: 1
  381. -- font id: 0
  382. -- text size: 12
  383. -- style flags: 0
  384. -- line height: 16
  385. -- part name: -
  386. ----- HyperTalk script -----
  387. on mouseUp
  388.   global nowop
  389.   put "-" into nowop
  390.   operation
  391. end mouseUp
  392.  
  393.  
  394. -- part 22 (button)
  395. -- low flags: 00
  396. -- high flags: A003
  397. -- rect: left=137 top=172 right=195 bottom=162
  398. -- title width / last selected line: 0
  399. -- icon id / first selected line: 0 / 0
  400. -- text alignment: 1
  401. -- font id: 0
  402. -- text size: 12
  403. -- style flags: 0
  404. -- line height: 16
  405. -- part name: x
  406. ----- HyperTalk script -----
  407. on mouseUp
  408.   global nowop
  409.   put "*" into nowop
  410.   operation
  411. end mouseUp
  412.  
  413.  
  414. -- part 23 (button)
  415. -- low flags: 00
  416. -- high flags: A003
  417. -- rect: left=163 top=172 right=195 bottom=188
  418. -- title width / last selected line: 0
  419. -- icon id / first selected line: 0 / 0
  420. -- text alignment: 1
  421. -- font id: 0
  422. -- text size: 12
  423. -- style flags: 0
  424. -- line height: 16
  425. -- part name: ÷
  426. ----- HyperTalk script -----
  427. on mouseUp
  428.   global nowop
  429.   put "/" into nowop
  430.   operation
  431. end mouseUp
  432.  
  433.  
  434. -- part 24 (button)
  435. -- low flags: 00
  436. -- high flags: A003
  437. -- rect: left=137 top=142 right=165 bottom=162
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: M+
  446. ----- HyperTalk script -----
  447. on mouseUp
  448.   global memdel
  449.   global mem
  450.   global cs
  451.   put card field "screen" into mem
  452.   put "y" into cs
  453.   put "n" into memdel
  454. end mouseUp
  455.  
  456.  
  457. -- part 25 (button)
  458. -- low flags: 00
  459. -- high flags: A003
  460. -- rect: left=163 top=142 right=165 bottom=188
  461. -- title width / last selected line: 0
  462. -- icon id / first selected line: 0 / 0
  463. -- text alignment: 1
  464. -- font id: 0
  465. -- text size: 12
  466. -- style flags: 0
  467. -- line height: 16
  468. -- part name: MR
  469. ----- HyperTalk script -----
  470. on mouseUp
  471.   global mem
  472.   global memdel
  473.   global cs
  474.   if memdel = "y" then
  475.     put empty into mem
  476.     put "n" into memdel
  477.     exit mouseup
  478.   end if
  479.   put mem into card field "screen"
  480.   put mem after card field "operations"
  481.   put "y" into cs
  482.   put "y" into memdel
  483. end mouseUp
  484.  
  485.  
  486. -- part 26 (button)
  487. -- low flags: 00
  488. -- high flags: A002
  489. -- rect: left=4 top=122 right=138 bottom=31
  490. -- title width / last selected line: 0
  491. -- icon id / first selected line: 0 / 0
  492. -- text alignment: 1
  493. -- font id: 0
  494. -- text size: 12
  495. -- style flags: 0
  496. -- line height: 16
  497. -- part name: [(--
  498. ----- HyperTalk script -----
  499. on mouseUp
  500.   global cs
  501.   put "(" after card field "operations"
  502.   put "y" into cs
  503. end mouseUp
  504.  
  505.  
  506. -- part 27 (button)
  507. -- low flags: 00
  508. -- high flags: A002
  509. -- rect: left=37 top=122 right=138 bottom=63
  510. -- title width / last selected line: 0
  511. -- icon id / first selected line: 0 / 0
  512. -- text alignment: 1
  513. -- font id: 0
  514. -- text size: 12
  515. -- style flags: 0
  516. -- line height: 16
  517. -- part name: --)]
  518. ----- HyperTalk script -----
  519. on mouseUp
  520.   global cs
  521.   put ")" after card field "operations"
  522.   put "y" into cs
  523. end mouseUp
  524.  
  525.  
  526. -- part 28 (button)
  527. -- low flags: 00
  528. -- high flags: A002
  529. -- rect: left=65 top=122 right=138 bottom=92
  530. -- title width / last selected line: 0
  531. -- icon id / first selected line: 0 / 0
  532. -- text alignment: 1
  533. -- font id: 0
  534. -- text size: 12
  535. -- style flags: 0
  536. -- line height: 16
  537. -- part name: sin
  538. ----- HyperTalk script -----
  539. on mouseUp
  540.   global cs
  541.   put empty into card field "screen"
  542.   put "sin" after card field "operations"
  543.   put "sine" after card field "screen"
  544.   put "y" into cs
  545. end mouseUp
  546.  
  547.  
  548. -- part 29 (button)
  549. -- low flags: 00
  550. -- high flags: A002
  551. -- rect: left=93 top=122 right=138 bottom=120
  552. -- title width / last selected line: 0
  553. -- icon id / first selected line: 0 / 0
  554. -- text alignment: 1
  555. -- font id: 0
  556. -- text size: 12
  557. -- style flags: 0
  558. -- line height: 16
  559. -- part name: cos
  560. ----- HyperTalk script -----
  561. on mouseUp
  562.   global cs
  563.   put empty into card field "screen"
  564.   put "cos" after card field "operations"
  565.   put "cosine" after card field "screen"
  566.   put "y" into cs
  567. end mouseUp
  568.  
  569.  
  570. -- part 30 (button)
  571. -- low flags: 00
  572. -- high flags: A002
  573. -- rect: left=121 top=122 right=138 bottom=148
  574. -- title width / last selected line: 0
  575. -- icon id / first selected line: 0 / 0
  576. -- text alignment: 1
  577. -- font id: 0
  578. -- text size: 12
  579. -- style flags: 0
  580. -- line height: 16
  581. -- part name: tan
  582. ----- HyperTalk script -----
  583. on mouseUp
  584.   global cs
  585.   put empty into card field "screen"
  586.   put "tan" after card field "operations"
  587.   put "tangent" after card field "screen"
  588.   put "y" into cs
  589. end mouseUp
  590.  
  591.  
  592. -- part 31 (button)
  593. -- low flags: 00
  594. -- high flags: A002
  595. -- rect: left=149 top=122 right=138 bottom=186
  596. -- title width / last selected line: 0
  597. -- icon id / first selected line: 0 / 0
  598. -- text alignment: 1
  599. -- font id: 0
  600. -- text size: 12
  601. -- style flags: 0
  602. -- line height: 16
  603. -- part name: atan
  604. ----- HyperTalk script -----
  605. on mouseUp
  606.   global cs
  607.   put empty into card field "screen"
  608.   put "atan" after card field "operations"
  609.   put "arc tangent" after card field "screen"
  610.   put "y" into cs
  611. end mouseUp
  612.  
  613.  
  614. -- part 33 (button)
  615. -- low flags: 00
  616. -- high flags: A002
  617. -- rect: left=4 top=98 right=114 bottom=31
  618. -- title width / last selected line: 0
  619. -- icon id / first selected line: 0 / 0
  620. -- text alignment: 1
  621. -- font id: 0
  622. -- text size: 12
  623. -- style flags: 0
  624. -- line height: 16
  625. -- part name: √
  626. ----- HyperTalk script -----
  627. on mouseUp
  628.   global cs
  629.   put empty into card field "screen"
  630.   put "sqrt" after card field "operations"
  631.   put "y" into cs
  632. end mouseUp
  633.  
  634.  
  635. -- part 36 (button)
  636. -- low flags: 00
  637. -- high flags: A002
  638. -- rect: left=37 top=98 right=114 bottom=64
  639. -- title width / last selected line: 0
  640. -- icon id / first selected line: 0 / 0
  641. -- text alignment: 1
  642. -- font id: 0
  643. -- text size: 12
  644. -- style flags: 0
  645. -- line height: 16
  646. -- part name: pr1
  647. ----- HyperTalk script -----
  648. on mouseUp
  649.   global pr
  650.   put 1 into pr
  651.   power
  652. end mouseUp
  653.  
  654.  
  655. -- part 37 (button)
  656. -- low flags: 00
  657. -- high flags: A002
  658. -- rect: left=65 top=98 right=114 bottom=92
  659. -- title width / last selected line: 0
  660. -- icon id / first selected line: 0 / 0
  661. -- text alignment: 1
  662. -- font id: 0
  663. -- text size: 12
  664. -- style flags: 0
  665. -- line height: 16
  666. -- part name: pr2
  667. ----- HyperTalk script -----
  668. on mouseUp
  669.   global pr
  670.   put 2 into pr
  671.   power
  672. end mouseUp
  673.  
  674.  
  675. -- part 38 (button)
  676. -- low flags: 00
  677. -- high flags: A002
  678. -- rect: left=93 top=98 right=114 bottom=120
  679. -- title width / last selected line: 0
  680. -- icon id / first selected line: 0 / 0
  681. -- text alignment: 1
  682. -- font id: 0
  683. -- text size: 12
  684. -- style flags: 0
  685. -- line height: 16
  686. -- part name: pr3
  687. ----- HyperTalk script -----
  688. on mouseUp
  689.   global pr
  690.   put 3 into pr
  691.   power
  692. end mouseUp
  693.  
  694.  
  695. -- part 39 (button)
  696. -- low flags: 00
  697. -- high flags: A002
  698. -- rect: left=121 top=98 right=114 bottom=148
  699. -- title width / last selected line: 0
  700. -- icon id / first selected line: 0 / 0
  701. -- text alignment: 1
  702. -- font id: 0
  703. -- text size: 12
  704. -- style flags: 0
  705. -- line height: 16
  706. -- part name: pr4
  707. ----- HyperTalk script -----
  708. on mouseUp
  709.   global pr
  710.   put 4 into pr
  711.   power
  712. end mouseUp
  713.  
  714.  
  715. -- part 40 (button)
  716. -- low flags: 00
  717. -- high flags: A002
  718. -- rect: left=121 top=80 right=96 bottom=148
  719. -- title width / last selected line: 0
  720. -- icon id / first selected line: 0 / 0
  721. -- text alignment: 1
  722. -- font id: 0
  723. -- text size: 12
  724. -- style flags: 0
  725. -- line height: 16
  726. -- part name: pr9
  727. ----- HyperTalk script -----
  728. on mouseUp
  729.   global pr
  730.   put 9 into pr
  731.   power
  732. end mouseUp
  733.  
  734.  
  735. -- part 41 (button)
  736. -- low flags: 00
  737. -- high flags: A002
  738. -- rect: left=93 top=80 right=96 bottom=120
  739. -- title width / last selected line: 0
  740. -- icon id / first selected line: 0 / 0
  741. -- text alignment: 1
  742. -- font id: 0
  743. -- text size: 12
  744. -- style flags: 0
  745. -- line height: 16
  746. -- part name: pr8
  747. ----- HyperTalk script -----
  748. on mouseUp
  749.   global pr
  750.   put 8 into pr
  751.   power
  752. end mouseUp
  753.  
  754.  
  755. -- part 42 (button)
  756. -- low flags: 00
  757. -- high flags: A002
  758. -- rect: left=65 top=80 right=96 bottom=92
  759. -- title width / last selected line: 0
  760. -- icon id / first selected line: 0 / 0
  761. -- text alignment: 1
  762. -- font id: 0
  763. -- text size: 12
  764. -- style flags: 0
  765. -- line height: 16
  766. -- part name: pr7
  767. ----- HyperTalk script -----
  768. on mouseUp
  769.   global pr
  770.   put 7 into pr
  771.   power
  772. end mouseUp
  773.  
  774.  
  775. -- part 43 (button)
  776. -- low flags: 00
  777. -- high flags: A002
  778. -- rect: left=37 top=80 right=96 bottom=64
  779. -- title width / last selected line: 0
  780. -- icon id / first selected line: 0 / 0
  781. -- text alignment: 1
  782. -- font id: 0
  783. -- text size: 12
  784. -- style flags: 0
  785. -- line height: 16
  786. -- part name: pr6
  787. ----- HyperTalk script -----
  788. on mouseUp
  789.   global pr
  790.   put 6 into pr
  791.   power
  792. end mouseUp
  793.  
  794.  
  795. -- part 44 (button)
  796. -- low flags: 00
  797. -- high flags: A002
  798. -- rect: left=149 top=98 right=114 bottom=186
  799. -- title width / last selected line: 0
  800. -- icon id / first selected line: 0 / 0
  801. -- text alignment: 1
  802. -- font id: 0
  803. -- text size: 12
  804. -- style flags: 0
  805. -- line height: 16
  806. -- part name: pr5
  807. ----- HyperTalk script -----
  808. on mouseUp
  809.   global pr
  810.   put 5 into pr
  811.   power
  812. end mouseUp
  813.  
  814.  
  815. -- part 45 (button)
  816. -- low flags: 00
  817. -- high flags: A002
  818. -- rect: left=149 top=80 right=96 bottom=186
  819. -- title width / last selected line: 0
  820. -- icon id / first selected line: 0 / 0
  821. -- text alignment: 1
  822. -- font id: 0
  823. -- text size: 12
  824. -- style flags: 0
  825. -- line height: 16
  826. -- part name: pr10
  827. ----- HyperTalk script -----
  828. on mouseUp
  829.   global pr
  830.   put 10 into pr
  831.   power
  832. end mouseUp
  833.  
  834.  
  835. -- part 46 (button)
  836. -- low flags: 00
  837. -- high flags: A002
  838. -- rect: left=4 top=80 right=96 bottom=31
  839. -- title width / last selected line: 0
  840. -- icon id / first selected line: 0 / 0
  841. -- text alignment: 1
  842. -- font id: 0
  843. -- text size: 12
  844. -- style flags: 0
  845. -- line height: 16
  846. -- part name: !
  847. ----- HyperTalk script -----
  848. on mouseUp
  849.   show card field "working..."
  850.   global a
  851.   global cs
  852.   put 0 into a
  853.   repeat card field "screen"-1
  854.     add 1 to a
  855.     put "*" & card field "screen"-a after card field "Operations"
  856.   end repeat
  857.   put "y" into cs
  858.   hide card field "working..."
  859. end mouseUp
  860.  
  861.  
  862. -- part 48 (field)
  863. -- low flags: 84
  864. -- high flags: 0002
  865. -- rect: left=126 top=57 right=74 bottom=189
  866. -- title width / last selected line: 0
  867. -- icon id / first selected line: 0 / 0
  868. -- text alignment: 0
  869. -- font id: 20
  870. -- text size: 12
  871. -- style flags: 0
  872. -- line height: 16
  873. -- part name: Working...
  874.  
  875.  
  876. -- part 49 (button)
  877. -- low flags: 00
  878. -- high flags: A004
  879. -- rect: left=4 top=57 right=79 bottom=32
  880. -- title width / last selected line: 0
  881. -- icon id / first selected line: 389 / 389
  882. -- text alignment: 1
  883. -- font id: 0
  884. -- text size: 12
  885. -- style flags: 0
  886. -- line height: 16
  887. -- part name: ?
  888. ----- HyperTalk script -----
  889. on mouseUp
  890.   play boing
  891.   visual venetian blinds fast
  892.   go to next card
  893.   visual venetian blinds fast
  894.   go back
  895.   visual venetian blinds fast
  896.   go to next card
  897. end mouseUp
  898.  
  899.  
  900. -- part contents for card part 48
  901. ----- text -----
  902. Working...